home *** CD-ROM | disk | FTP | other *** search
- on startMovie
- global gOnIBM
- identifyPlatform()
- formatDisplayFields()
- end
-
- on formatDisplayFields
- global gOnIBM
- if gOnIBM then
- repeat with x = 1 to 8
- set myField to "tutorial" & x & ".text"
- set the textFont of field myField to "Arial"
- set the textSize of field myField to 12
- end repeat
- else
- repeat with x = 1 to 8
- set myField to "tutorial" & x & ".text"
- set the textFont of field myField to "Geneva"
- set the textSize of field myField to 12
- end repeat
- end if
- end
-